;
;  INV -- inventory (c) 1990 Chris Butler
;

;VIDEO M
  set allsolns off
  goto top
all:
  set allsolns on
top:

;mouse on
global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw  488
global boxh  115
global boxtitle "Max with Ed the engineer"
set h 17	; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14; 
cload max.clp 30 1 0	  ; max's face
tran on 15
cload cover.clp 32 0 1 
merge toursubs.txt

iris:
set boxtitle "Max with Irv in Inventory"
set entrypoint "entry_9"
pload palette1.pcx 1
palette 1
pfree 1
cload inv.clp 31 1 0
call steps.txt invntry

label301:
newbgrnd "inv2a.pcx" 80 40 1 0 200 5
;mouse on
set str1 "Hi, Irv. What's new in the parts business?"
set str2 ""
say 1 @str1 @str2
waitkey 50
label1a:
getcmd
if @0<>"backup" label302
noise 500 200 50
waitkey 100
goto label1a

label302:
set str1 "Well, Max, we just finished an inventory using MAXIMO Series 3 "
set str2 "cycle counting and we're 96% accurate."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label301

label303:
set str1 "That's great -- we couldn't even find our parts last year. Listen"
set str2 " Irv, we need some replacement parts for an Eclipse cartoner."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label302

label304:
set str1 "OK. Let's ask Maximo what we've got."
set str2 ""
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label303

label305:
newbgrnd "18.pcx" 80,100 0 0 100 9
set str1 "Looks like there's none left. Maybe"
set str2 " we can cannibalize another piece of equipment ... "
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label304

label306:
newbgrnd "19.pcx" 80,0 0 0 100 9
set str1 "Well, that's all production machinery. We can't take any of those."
set str2 " Anyway, MAXIMO says they're obsolete. Maybe we have a substitute?"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label305

label307:
newbgrnd "20.pcx" 80,100 0 0 100 9
set str1 "OK. Use the 217215-A as a substitute. Your work order will drop that"
set str2 " bearing's `current balance' to its automatic reorder point ..."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label306

label308:
set str1 " ... but MAXIMO will automatically order 2 new pairs on a parts "
set str2 "requisition after it gets Alice's approval down in Accounting!"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label307

label309:
newbgrnd "inv2a.pcx" 80 40 1 0 50 9
set str1 "Irv, you can really put MAXIMO through its paces! You need a raise."
set str2 ""
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label308

label310:
set str1 "I agree! You know MAXIMO helped me reduce my inventory line items by "
set str2 "20%, saving us $115,000 in spares and carrying costs this year ..."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label309

label311:
set str1 " ... and MAXIMO's new bar code interface lets us check inventory in "
set str2 "and out of the system in a flash. Mechanics really appreciate that."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label310

label312:
set str1 "Good stuff, Irv. Well, I'm going down to Purchasing and Accounting to"
set str2 " talk about next year's budget."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label311

label313:
set str1 "Bye, Max."
set str2 ""
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label312

;mouse off

if @allsolns==on linkit
  link master.txt entry_9
linkit:
  link purch.txt all

; SUBR INV